home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / toolbox / banner.r < prev    next >
Text File  |  1994-04-25  |  734b  |  38 lines
  1. //-------------------------------------------------------------------
  2. //
  3. // banner
  4. //
  5. // Syntax: banner(string)
  6. //
  7. //  Prints the string in the center of the page with horizontal
  8. //  lines above and below
  9. //
  10. // Originally written for MATLAB by Lee P. Peterson
  11. // Modified by Jeff Layton and ported to RLaB by Jeff Layton
  12. //-------------------------------------------------------------------
  13.  
  14. rfile center
  15.  
  16. banner = function(string)
  17. {
  18.    local(width,line,j)
  19.  
  20.    if (string.class != "string") {
  21.        error("banner only works with strings.")
  22.    }
  23.  
  24.    width=length(string);
  25.    line="";
  26.  
  27.    for (j in 1:width) {
  28.      line=line+"-";
  29.    }
  30.  
  31. // printf("%s"," ");
  32.    center(line);
  33.    center(string);
  34.    center(line);
  35. // printf("%s"," ");
  36.  
  37. };
  38.